use strict;
use lib "blog\\SOAP-Lite-0.710.08\\lib"; 
use lib 'blog\WordPress-API-1.09\lib';
use lib 'blog\WordPress-XMLRPC-1.18\lib'; 
use WordPress::API;

my $w = WordPress::API->new({
      username => 'herberthb@qq.com',
      password => '789456',
      proxy => 'http://dhgx.yo2.cn/xmlrpc.php',
   });
my $r = $w->getRecentPosts(70);

if(! open NEWS,">success.txt"){
	die "openfaile($!)";
}
my $i=0;
for($i=0;$i<70;$i++)
{
	print NEWS $r->[$i]->{title},"\n";
}
close NEWS;